1 PRINT CHR$(147):POKE53281,0:POKE53280,0
24 PRINT "    MICRON SOFTWARE PRESENTS"
60 FOR I=1 TO 1500:NEXT I
65 PRINT "[145]   B     R     I     C     K     S"
70 PRINT " [155]    [149]    [155]    [152]    [155]    [151]    [152]    [158]    [155]    "
75 PRINT " [151]  [155]    [152]        [149]    [155]    [151]    [155]    [151]      "
80 PRINT " [158]    [151]    [155]        [151]    [152]    [155]    [149]    [152]    "
83 PRINT "INTERACTIVE BOOK I (KEYBOARD & TURTLE)"
85 FOR I=1 TO 2500:NEXT I
90 PRINT "[147](C) 1984  MICRON SOFTWARE, INC."
95 PRINT "SAN FRANCISCO, CA. MADISON, WI."
100 POKE 646,1
110 PRINT "--------------------------------------"
120 PRINT
135 PRINT "[155]         W E L C O M E   T O    "
140 PRINT
150 POKE 646,1
152 FOR I=1 TO 800:NEXT I
155 PRINT "[158] ====  =====  ===     ===   ==   =="
156 FOR I=1 TO 50:NEXT I
160 PRINT "[158]===== ======= ====   ====  ====  =="
161 FOR I=1 TO 50:NEXT I
170 PRINT "==    ==   ==  ==== ====  ==  == =="
171 FOR I=1 TO 50:NEXT I
180 PRINT "==    ==   ==  =========  ==  == =="
181 FOR I=1 TO 50:NEXT I
190 PRINT "[156]==    ==   ==  == === ==  ====== =="
191 FOR I=1 TO 50:NEXT I
200 PRINT "[156]==    ==   ==  ==  =  ==  ====== =="
201 FOR I=1 TO 50:NEXT I
210 PRINT "===== ======= ===     === ==  == ====="
211 FOR I=1 TO 50:NEXT I
220 PRINT " ====  =====  ===     === ==  == ====="
230 PRINT "    B     R     I     C     K     S    "
250 FOR I=1 TO 800:NEXT I
270 POKE 646,1
280 PRINT "--------------------------------------"
300 POKE 646,6
310 PRINT "ADJUST COLOR WHILE PROGRAM LOADS"
320 PRINT "PROGRAMMING BY GORDON D. SHIGLEY"
330 POKE 646,1
900 POKE 53281,0
910 REM CHAIN"HI + CHR$(13)
920 [151] 198,9
930 [151] 631,[198]("C")
940 [151] 632,[198]("H")
950 [151] 633,[198]("A")
960 [151] 634,[198]("I")
970 [151] 635,[198]("N")
980 [151] 636,34
990 [151] 637,[198]("H")
1000 [151] 638,[198]("I")
1010 [151] 639,13
1020 [147] "C64 COMAL*",8